home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Utilities Experience
/
The Utilities Experience - Volume 1.iso
/
software
/
demos
/
r-z
/
sbase4pro
/
trading
/
stkfo.sbp
< prev
next >
Wrap
Text File
|
1995-07-10
|
3KB
|
176 lines
SBP
ÿ½ STKFO
ÿ½ Countries/Currencies pflegen
ÿ½ Neueste Version 1. Feb 91
ÿ½ ON ERROR GOTO ferror
stkfo:ÿ½ Funktionsparameter zuweisen
cou%ÿ3:cur%ÿ4
ÿÉÿæmb%
ÿæcou%
f$ÿ"country":fkey$ÿ"Name.COUNTRY":fmd$ÿ"stko":fmp$ÿ"stko2"
ffld%ÿ4
ÿæcur%
f$ÿ"currency":fkey$ÿ"Currency.CURRENCY":fmd$ÿ"stku":fmp$ÿ"stku2"
ffld%ÿ6
ÿÿÉ
frow%ÿ10:fst%ÿ0:ÿ´ÿfmd$
floop:ÿ½ Vom ersten Datensatz an ausgeben
ÿvslimits
ckey$ÿfstk$
ÿwfform
fpage:ÿ½ Seite erneut darstellen
ÿvslimits
ckey$ÿpstk$(1)
fform:ÿ½ Von ckey$ an darstellen
ÿvspage
ÿ¡fst%ÿpÿ
fst%ÿ1
fwait:ÿ½ Auf Drucktaste warten
mp%ÿ0
ÿÊÿËss13$
ÿÏÿß
ÿ½ blank line
ÿ½ Zeile editieren
ÿ¡(mp%ÿ0ÿmp%ÿlrec%)ÿpÿwfwait
ÿÊÿËss4$
ÿÉÿÿ"mp%
fnd%ÿ0
ckey$ÿfkey$$
ÿßÿ³
ÿ¡mb%ÿcur%ÿpÿCurrency ÿ"mp%
ÿ¡mb%ÿcou%ÿpÿName ÿ"mp%,ffld%
ÿ¡(mb%ÿcou%ÿName.COUNTRYÿckey$)ÿ(mb%ÿcur%ÿCurrency.CURRENCYÿckey$)ÿp
skey$ÿfkey$$
ÿvsinteg
ÿ¡fnd%ÿ0ÿpÿÉÿÿ"mp%:fkey$$ÿskey$
ÿÿ¡
ÿ¡fnd%ÿ0ÿp
ÿ¡mb%ÿcur%ÿp
ÿÊÿËss4$
ÿDescription ÿ"mp%,ffld%ÿ1
ÿÿ¡
ÿÂms1$,"",127,b%
ÿ¡b%ÿ1ÿpÿÌ
ÿÿ¡
ÿwfpage
fenter: ÿ½ neue Datensätze eingeben
ÿÿ
ÿÎ
ÿÊÿËss3$
ÿßÿ³
mp%ÿ1
fenter2:
ÿ(mp%ÿ1)ÿffld%ÿ1,ffld%
ÿÂms1$,"",127,a%
ÿ¡a%ÿ1ÿpÿÌ:mp%ÿmp%ÿ1
ÿÂms2$,"",130,a%
ÿ¡a%ÿ0ÿpÿwfloop
ÿ¡mp%ÿ frow%ÿpÿwfenter2 ÿ^ÿwfenter
fdelete: ÿ½ Datensatz löschen
ÿÊÿËss12$
ÿÏÿß
ÿÉÿÿ"mp%
ckey$ÿfkey$$
fnd%ÿ0
ÿvsinteg
ÿ¡fnd%ÿ0ÿp
ÿÂms14$ÿckey$,"",119,a%
ÿ¡a%ÿp
ÿÉÿÿ"mp%
ÿÉÿ¥ckey$
ÿÉÿ¾
ÿÿ¡
ÿÿ¡
ÿwfpage
fnext:ÿ½ Next page
ÿ¡lstk$ÿpstk$(lrec%)ÿpÿwfwait
ÿÉÿ¥pstk$(lrec%)
ÿÉÿ±
ÿwfcurr
fprev:ÿ½ Prev page
ÿ¡fstk$ÿpstk$(1)ÿpÿwfwait
ÿÉÿ¥pstk$(1)
ÿi%ÿ1ÿqfrow%
ÿÉÿg
ÿ±i%
fcurr:ÿ½ ckey zuweisen
ckey$ÿfkey$$
ÿwfform
fexit:ÿ½ Exit
ÿ"menu"
fprint: ÿ½ Print
ÿ´ÿfmp$
ÿ¹ÿY
ÿ´ÿfmd$
ÿwfform
slimits: ÿ½ fkey$$ erhält den Inhalt des durch fkey$ bezeichneten Feldes
ÿÉÿb
lstk$ÿfkey$$
ÿÉÿ`
fstk$ÿfkey$$
ÿÃ
spage:ÿ½ Stellt Seite mit Datensätzen ab ckey$ dar
ÿ½ Liefert Schlüsselarray und Anzahl der Datensätze pro Seite
ÿÿ
ÿÉÿ¥ckey$
j%ÿ0
ÿi%ÿ1ÿqfrow%
ÿÍÿÿ"i%
j%ÿj%ÿ1
pstk$(i%)ÿfkey$$
ÿ¡fkey$$ÿlstk$ÿpi%ÿfrow%
ÿ¡i%ÿ
frow%ÿpÿÉÿ±
ÿ±i%
ÿ¡j%ÿfrow%ÿplrec%ÿfrow%ÿ^lrec%ÿj%
ÿÃ
sinteg:ÿ½ Nicht von Clients oder Stocks benutzt?
ÿÊÿËss16$
ÿ¡mb%ÿcou%ÿp
ÿ"clients"
ÿ£f$
ÿÉÿ¥ckey$
ÿ¡ÿC("")ÿpÿÂms25$,ckey$ÿ" referenced by clients file",100,a%:fnd%ÿ1
ÿÿ¡
ÿ"stocks"
ÿ£f$
ÿÉÿ¥ckey$
ÿ¡ÿC("")ÿpÿÂms25$,ckey$ÿ" referenced by stocks file",100,a%:fnd%ÿ1
ÿf$
ÿÃ
ferror:ÿ½ Error conditions
res%ÿ0
ÿ¡ÿ&ÿ11ÿp
ÿÂms21$,ms22$,130,a%:ÿ¡a%ÿ1ÿpres%ÿ1
ÿ^ÿ¡ÿ&ÿ57ÿp
ÿÂms8$,"",2,a%:res%ÿ2
ÿ^
ÿÂÿ((ÿ&),ms9$,114,a%:ÿ¡a%ÿ1ÿpres%ÿ3
ÿÿ¡
ÿ¡res%ÿ1ÿpÿy
ÿ¡res%ÿ2ÿpÿyfloop
ÿ¡res%ÿ3ÿpÿyfwait
ÿ